home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / DELPHI / CC32.ZIP / DBUNEDIT.CD < prev    next >
Encoding:
INI File  |  1996-03-25  |  14.3 KB  |  910 lines

  1. [MainInfo$]
  2. CCVer=2.1
  3. Compatible20=0
  4. Compatible21=1
  5. UnitName=DBUnEdit
  6. NewClassName=TDBUndoEdit
  7. ParentClassName=TCustomEdit
  8. DefaultPalette=Data Controls
  9. CopyrightLine=A public domain component
  10. FormMode=0
  11. FormFile=
  12.  
  13. [Units$]
  14. Lines=13
  15. L1=WinTypes
  16. L2=WinProcs
  17. L3=Messages
  18. L4=SysUtils
  19. L5=Classes
  20. L6=Controls
  21. L7=Forms
  22. L8=Graphics
  23. L9=Stdctrls
  24. L10=Clipbrd
  25. L11=DbTables
  26. L12=DB
  27. L13=Mask
  28.  
  29. [ItemList$]
  30. Create=Method
  31. Destroy=Method
  32. OnClick=ExistingEvent
  33. OnDblClick=ExistingEvent
  34. OnDragDrop=ExistingEvent
  35. OnMouseDown=ExistingEvent
  36. OnMouseMove=ExistingEvent
  37. OnMouseUp=ExistingEvent
  38. OnKeyUp=ExistingEvent
  39. OnKeyDown=ExistingEvent
  40. OnKeyPress=ExistingEvent
  41. OnEnter=ExistingEvent
  42. OnExit=ExistingEvent
  43. CanUndo=Property
  44. CanPaste=Property
  45. CanCutCopy=Property
  46. Undo=Method
  47. DataSource=Property
  48. DataField=Property
  49. DataChange=Method
  50. FDataLink=Variable
  51. UpdateData=Method
  52. EditingChange=Method
  53. ActiveChange=Method
  54. OnChange=ExistingEvent
  55. FFocused=Variable
  56. SetFocused=Method
  57. WMCut=Method
  58. WMPaste=Method
  59. CMEnter=Method
  60. CMExit=Method
  61. CharCase=Property
  62. Enabled=Property
  63. Font=Property
  64. MaxLength=Property
  65. Reset=Method
  66.  
  67. [Global$]
  68. Descr=Data-aware edit box with undo
  69. DefaultCode=1
  70.  
  71. [Code$]
  72. Lines=0
  73.  
  74. [Help$]
  75. Lines=0
  76.  
  77. [Create]
  78. Descr=
  79. DefaultCode=2
  80. Kind=2
  81. Header=Create(AOwner: TComponent)
  82. S=0
  83. Ov=1
  84. Mode=2
  85. WinMessage=
  86.  
  87. [CreateCode$]
  88. Lines=7
  89. L1=begin
  90. L2=~~~~~inherited Create(AOwner);
  91. L3=~~~~~AutoInitialize;
  92. L4=
  93. L5=~~~~~{ Code to perform other tasks when the component is created }
  94. L6=
  95. L7=end;
  96.  
  97. [CreateHelp$]
  98. Lines=0
  99.  
  100. [Destroy]
  101. Descr=
  102. DefaultCode=4
  103. Kind=3
  104. Header=Destroy
  105. S=0
  106. Ov=1
  107. Mode=2
  108. WinMessage=
  109.  
  110. [DestroyCode$]
  111. Lines=4
  112. L1=begin
  113. L2=~~~~~AutoDestroy;
  114. L3=~~~~~inherited Destroy;
  115. L4=end;
  116.  
  117. [DestroyHelp$]
  118. Lines=0
  119.  
  120. [OnClick]
  121. Descr=
  122. DefaultCode=7
  123. Ov=0
  124. P=1
  125. HandlerDecl=Click
  126.  
  127. [OnClickCode$]
  128. Lines=4
  129. L1=begin
  130. L2=~~~~~{ Call method of parent class }
  131. L3=~~~~~inherited Click;
  132. L4=end;
  133.  
  134. [OnClickHelp$]
  135. Lines=0
  136.  
  137. [OnDblClick]
  138. Descr=
  139. DefaultCode=8
  140. Ov=0
  141. P=1
  142. HandlerDecl=DblClick
  143.  
  144. [OnDblClickCode$]
  145. Lines=0
  146.  
  147. [OnDblClickHelp$]
  148. Lines=0
  149.  
  150. [OnDragDrop]
  151. Descr=
  152. DefaultCode=13
  153. Ov=0
  154. P=1
  155. HandlerDecl=DragDrop(DragObject: TObject; X, Y: Integer)
  156.  
  157. [OnDragDropCode$]
  158. Lines=0
  159.  
  160. [OnDragDropHelp$]
  161. Lines=0
  162.  
  163. [OnMouseDown]
  164. Descr=
  165. DefaultCode=13
  166. Ov=0
  167. P=1
  168. HandlerDecl=MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer)
  169.  
  170. [OnMouseDownCode$]
  171. Lines=0
  172.  
  173. [OnMouseDownHelp$]
  174. Lines=0
  175.  
  176. [OnMouseMove]
  177. Descr=
  178. DefaultCode=13
  179. Ov=0
  180. P=1
  181. HandlerDecl=MouseMove(Shift: TShiftState; X, Y: Integer)
  182.  
  183. [OnMouseMoveCode$]
  184. Lines=0
  185.  
  186. [OnMouseMoveHelp$]
  187. Lines=0
  188.  
  189. [OnMouseUp]
  190. Descr=
  191. DefaultCode=13
  192. Ov=0
  193. P=1
  194. HandlerDecl=MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer)
  195.  
  196. [OnMouseUpCode$]
  197. Lines=0
  198.  
  199. [OnMouseUpHelp$]
  200. Lines=0
  201.  
  202. [OnKeyUp]
  203. Descr=
  204. DefaultCode=13
  205. Ov=0
  206. P=1
  207. HandlerDecl=KeyUp(var Key: Word; Shift: TShiftState)
  208.  
  209. [OnKeyUpCode$]
  210. Lines=0
  211.  
  212. [OnKeyUpHelp$]
  213. Lines=0
  214.  
  215. [OnKeyDown]
  216. Descr=
  217. DefaultCode=10
  218. Ov=1
  219. P=1
  220. HandlerDecl=KeyDown(var Key: Word; Shift: TShiftState)
  221.  
  222. [OnKeyDownCode$]
  223. Lines=26
  224. L1=begin
  225. L2=~~~~~{ Key contains the Windows VK_ (virtual key) code of the key
  226. L3=~~~~~~~that was pressed, such as VK_DELETE.
  227. L4=
  228. L5=~~~~~~~Shift is a set containing the state of the Shift, Ctrl, and Alt
  229. L6=~~~~~~~keys.  [ssShift] means only Shift key was down, [ssCtrl] means
  230. L7=~~~~~~~only Ctrl key was down, [ssAlt] means only Alt key was down,
  231. L8=~~~~~~~[ssShift, ssCtrl] means Ctrl+Shift, etc.
  232. L9=
  233. L10=~~~~~~~Changes in the text of the edit box that are produced here
  234. L11=~~~~~~~will lead to an OnChange event.  Because we call FDataSet.Modified
  235. L12=~~~~~~~in our Change method, we do not need to call it here. }
  236. L13=
  237. L14=~~~~~inherited KeyDown(Key, Shift);
  238. L15=~~~~~case Key of
  239. L16=~~~~~VK_BACK, VK_DELETE :   { Backspace, DEL keys }
  240. L17=~~~~~~~~~~~~~~~begin
  241. L18=~~~~~~~~~~~~~~~FDataLink.Edit
  242. L19=~~~~~~~~~~~~~~~end;
  243. L20=~~~~~VK_INSERT :            { INS key }
  244. L21=~~~~~~~~~~~~~~~begin
  245. L22=~~~~~~~~~~~~~~~if ssShift in Shift then
  246. L23=~~~~~~~~~~~~~~~~~~FDataLink.Edit
  247. L24=~~~~~~~~~~~~~~~end;
  248. L25=~~~~~end; { case }
  249. L26=end;
  250.  
  251. [OnKeyDownHelp$]
  252. Lines=0
  253.  
  254. [OnKeyPress]
  255. Descr=
  256. DefaultCode=9
  257. Ov=1
  258. P=1
  259. HandlerDecl=KeyPress(var Key : Char)
  260.  
  261. [OnKeyPressCode$]
  262. Lines=29
  263. L1={  Changes in the text of the edit box that are produced here
  264. L2=~~~will lead to an OnChange event.  Because we call FDataSet.Modified
  265. L3=~~~in our Change method, we do not need to call it here. }
  266. L4=begin
  267. L5=~~~~~inherited KeyPress(Key);
  268. L6=~~~~~{ Define Ctrl-Z as "undo" keystroke }
  269. L7=~~~~~if Key = ^Z then
  270. L8=~~~~~~~~begin
  271. L9=~~~~~~~~{ Undo changes, if any, to memo }
  272. L10=~~~~~~~~{ Undo method calls FDataLink.Edit }
  273. L11=~~~~~~~~Undo;
  274. L12=~~~~~~~~{ Suppress further processing of the char }
  275. L13=~~~~~~~~Key := #0
  276. L14=~~~~~~~~end
  277. L15=~~~~~else
  278. L16=~~~~~~~~begin
  279. L17=~~~~~~~~if (Key in [#32..#255]) and (FDataLink.Field <> nil) then
  280. L18=~~~~~~~~~~~if not FDataLink.Field.IsValidChar(Key) then
  281. L19=~~~~~~~~~~~Key := #0;
  282. L20=~~~~~~~~case Key of
  283. L21=~~~~~~~~~~~~~^H, ^V, ^X, #32..#255 : FDataLink.Edit;
  284. L22=~~~~~~~~~~~~~#27 : begin
  285. L23=~~~~~~~~~~~~~~~~~~~FDataLink.Reset;
  286. L24=~~~~~~~~~~~~~~~~~~~SelectAll;
  287. L25=~~~~~~~~~~~~~~~~~~~Key := #0
  288. L26=~~~~~~~~~~~~~~~~~~~end
  289. L27=~~~~~~~~~end { case }
  290. L28=~~~~~~~~~end;
  291. L29=end;
  292.  
  293. [OnKeyPressHelp$]
  294. Lines=0
  295.  
  296. [OnEnter]
  297. Descr=
  298. DefaultCode=13
  299. Ov=0
  300. P=1
  301. HandlerDecl=DoEnter
  302.  
  303. [OnEnterCode$]
  304. Lines=0
  305.  
  306. [OnEnterHelp$]
  307. Lines=0
  308.  
  309. [OnExit]
  310. Descr=
  311. DefaultCode=13
  312. Ov=0
  313. P=1
  314. HandlerDecl=DoExit
  315.  
  316. [OnExitCode$]
  317. Lines=3
  318. L1=begin
  319. L2=~~~~~inherited DoExit;
  320. L3=end;
  321.  
  322. [OnExitHelp$]
  323. Lines=0
  324.  
  325. [CanUndo]
  326. Descr=
  327. DefaultCode=6
  328. IN=0
  329. RO=1
  330. PropType=Boolean
  331. PropDefault=
  332. Quote=0
  333. RM=1
  334. WM=0
  335. Hide=0
  336. DefEdit=1
  337. All=0
  338. EC=
  339. EU=
  340. Link=
  341.  
  342. [CanUndoCode$]
  343. Lines=0
  344.  
  345. [CanUndoReadCode$]
  346. Lines=3
  347. L1=begin
  348. L2=~~~~~Result := (Perform(EM_CANUNDO, 0, 0) <> 0)
  349. L3=end;
  350.  
  351. [CanUndoHelp$]
  352. Lines=0
  353.  
  354. [CanPaste]
  355. Descr=
  356. DefaultCode=6
  357. IN=0
  358. RO=1
  359. PropType=Boolean
  360. PropDefault=
  361. Quote=0
  362. RM=1
  363. WM=0
  364. Hide=0
  365. DefEdit=1
  366. All=0
  367. EC=
  368. EU=
  369. Link=
  370.  
  371. [CanPasteCode$]
  372. Lines=0
  373.  
  374. [CanPasteReadCode$]
  375. Lines=3
  376. L1=begin
  377. L2=~~~~~Result := Clipboard.HasFormat(CF_TEXT);
  378. L3=end;
  379.  
  380. [CanPasteHelp$]
  381. Lines=0
  382.  
  383. [CanCutCopy]
  384. Descr=
  385. DefaultCode=6
  386. IN=0
  387. RO=1
  388. PropType=Boolean
  389. PropDefault=
  390. Quote=0
  391. RM=1
  392. WM=0
  393. Hide=0
  394. DefEdit=1
  395. All=0
  396. EC=
  397. EU=
  398. Link=
  399.  
  400. [CanCutCopyCode$]
  401. Lines=0
  402.  
  403. [CanCutCopyReadCode$]
  404. Lines=3
  405. L1=begin
  406. L2=~~~~~Result := (SelLength > 0)
  407. L3=end;
  408.  
  409. [CanCutCopyHelp$]
  410. Lines=0
  411.  
  412. [Undo]
  413. Descr=Undo the last edit
  414. DefaultCode=0
  415. Kind=0
  416. Header=Undo
  417. S=0
  418. Ov=0
  419. Mode=2
  420. WinMessage=
  421.  
  422. [UndoCode$]
  423. Lines=8
  424. L1=begin
  425. L2=~~~~~{ Place dataset into edit mode }
  426. L3=~~~~~FDataLink.Edit;
  427. L4=~~~~~{ Send undo command to Windows }
  428. L5=~~~~~Perform(EM_UNDO, 0, 0);
  429. L6=~~~~~{ Set Modified flag of dataset }
  430. L7=~~~~~FDataLink.Modified
  431. L8=end;
  432.  
  433. [UndoHelp$]
  434. Lines=0
  435.  
  436. [DataSource]
  437. Descr=
  438. DefaultCode=6
  439. IN=0
  440. RO=0
  441. PropType=TDataSource
  442. PropDefault=
  443. Quote=0
  444. RM=1
  445. WM=1
  446. Hide=0
  447. DefEdit=1
  448. All=0
  449. EC=
  450. EU=
  451. Link=FDataLink.DataSource
  452.  
  453. [DataSourceCode$]
  454. Lines=4
  455. L1=begin
  456. L2=~~~~~{ Set the FDataLink.DataSource property }
  457. L3=~~~~~FDataLink.DataSource := Value;
  458. L4=end;
  459.  
  460. [DataSourceReadCode$]
  461. Lines=4
  462. L1=begin
  463. L2=~~~~~{ Return the FDataLink.DataSource property }
  464. L3=~~~~~Result := FDataLink.DataSource
  465. L4=end;
  466.  
  467. [DataSourceHelp$]
  468. Lines=0
  469.  
  470. [DataField]
  471. Descr=
  472. DefaultCode=6
  473. IN=0
  474. RO=0
  475. PropType=String
  476. PropDefault=
  477. Quote=0
  478. RM=1
  479. WM=1
  480. Hide=0
  481. DefEdit=1
  482. All=0
  483. EC=
  484. EU=
  485. Link=FDataLink.FieldName
  486.  
  487. [DataFieldCode$]
  488. Lines=4
  489. L1=begin
  490. L2=~~~~~{ Set the FDataLink.FieldName property }
  491. L3=~~~~~FDataLink.FieldName := Value;
  492. L4=end;
  493.  
  494. [DataFieldReadCode$]
  495. Lines=4
  496. L1=begin
  497. L2=~~~~~{ Return the FDataLink.FieldName property }
  498. L3=~~~~~Result := FDataLink.FieldName
  499. L4=end;
  500.  
  501. [DataFieldHelp$]
  502. Lines=0
  503.  
  504. [DataChange]
  505. Descr=
  506. DefaultCode=0
  507. Kind=0
  508. Header=DataChange(Sender : TObject)
  509. S=2
  510. Ov=0
  511. Mode=2
  512. WinMessage=
  513.  
  514. [DataChangeCode$]
  515. Lines=26
  516. L1=begin
  517. L2=~~~~~{ Respond to OnDataChange events of FDataLink }
  518. L3=~~~~~{ Update the component based on the status of the field. }
  519. L4=~~~~~if FDataLink.Field = nil then
  520. L5=~~~~~~~~{ No field assigned }
  521. L6=~~~~~~~~begin
  522. L7=~~~~~~~~{ At design time, show component name }
  523. L8=~~~~~~~~if csDesigning in ComponentState then
  524. L9=~~~~~~~~~~~Text := Name
  525. L10=~~~~~~~~else
  526. L11=~~~~~~~~~~~Text := '';
  527. L12=~~~~~~~~{ No limit on text length }
  528. L13=~~~~~~~~MaxLength := 0
  529. L14=~~~~~~~~end
  530. L15=~~~~~else
  531. L16=~~~~~~~~begin
  532. L17=~~~~~~~~{ Update component using properties of FDataLink.Field }
  533. L18=~~~~~~~~Text := FDataLink.Field.DisplayText;
  534. L19=~~~~~~~~{ For string fields, limit max edit size to max field size }
  535. L20=~~~~~~~~if FDataLink.Field.DataType = ftString then
  536. L21=~~~~~~~~~~~MaxLength := FDataLink.Field.Size
  537. L22=~~~~~~~~else
  538. L23=~~~~~~~~~~~{ No limit }
  539. L24=~~~~~~~~~~~MaxLength := 0
  540. L25=~~~~~~~~end
  541. L26=end;
  542.  
  543. [DataChangeHelp$]
  544. Lines=0
  545.  
  546. [FDataLink]
  547. Descr=
  548. DefaultCode=17
  549. DataType=TFieldDataLink
  550. Default=
  551. Quote=0
  552. Sc=10
  553. IsObject=1
  554. IsSubComponent=0
  555.  
  556. [FDataLinkCode$]
  557. Lines=7
  558. L1=begin
  559. L2={ Assign handlers }
  560. L3=OnDataChange := DataChange;
  561. L4=OnUpdateData := UpdateData;
  562. L5=OnEditingChange := EditingChange;
  563. L6=OnActiveChange := ActiveChange;
  564. L7=end;
  565.  
  566. [FDataLinkHelp$]
  567. Lines=0
  568.  
  569. [UpdateData]
  570. Descr=
  571. DefaultCode=0
  572. Kind=0
  573. Header=UpdateData(Sender : TObject)
  574. S=2
  575. Ov=0
  576. Mode=2
  577. WinMessage=
  578.  
  579. [UpdateDataCode$]
  580. Lines=8
  581. L1=begin
  582. L2=~~~~~{ Respond to OnUpdateData events of FDataLink }
  583. L3=~~~~~{ The component has altered the data, so update FDataLink.Field.Text
  584. L4=~~~~~~~here based on properties of the component.  The component's
  585. L5=~~~~~~~methods indicate when a change has occurred by calling
  586. L6=~~~~~~~FDataLink.Modified. }
  587. L7=~~~~~FDataLink.Field.Text := Text
  588. L8=end;
  589.  
  590. [UpdateDataHelp$]
  591. Lines=0
  592.  
  593. [EditingChange]
  594. Descr=
  595. DefaultCode=0
  596. Kind=0
  597. Header=EditingChange(Sender : TObject)
  598. S=2
  599. Ov=0
  600. Mode=2
  601. WinMessage=
  602.  
  603. [EditingChangeCode$]
  604. Lines=7
  605. L1=begin
  606. L2=~~~~~{ Respond to OnEditingChange events of FDataLink }
  607. L3=~~~~~{ The data source has gone from editing to non-editing,
  608. L4=~~~~~~~or the reverse; update the component's properties
  609. L5=~~~~~~~based on the value of FDataLink.Editing. }
  610. L6=~~~~~ReadOnly := not FDataLink.Editing;
  611. L7=end;
  612.  
  613. [EditingChangeHelp$]
  614. Lines=0
  615.  
  616. [ActiveChange]
  617. Descr=
  618. DefaultCode=0
  619. Kind=0
  620. Header=ActiveChange(Sender : TObject)
  621. S=2
  622. Ov=0
  623. Mode=2
  624. WinMessage=
  625.  
  626. [ActiveChangeCode$]
  627. Lines=20
  628. L1=const
  629. L2=~~~~~AllFieldTypes = [ftUnknown, ftString, ftSmallint,
  630. L3=~~~~~~~~~~~~~~~~~~~~~~ftInteger, ftWord, ftBoolean, ftFloat,
  631. L4=~~~~~~~~~~~~~~~~~~~~~~ftCurrency, ftBCD, ftDate, ftTime,
  632. L5=~~~~~~~~~~~~~~~~~~~~~~ftDateTime, ftBytes, ftVarBytes, ftBlob,
  633. L6=~~~~~~~~~~~~~~~~~~~~~~ftMemo, ftGraphic];
  634. L7=~~~~~IntFieldTypes = [ftSmallInt, ftInteger, ftWord];
  635. L8=begin
  636. L9=~~~~~{ Respond to OnActiveChange events of FDataLink }
  637. L10=~~~~~{ When the dataset becomes active, validate the field type. }
  638. L11=~~~~~if DataField = '' then
  639. L12=~~~~~~~~{ No field selected }
  640. L13=~~~~~~~~Exit;
  641. L14=~~~~~if FDataLink <> nil then
  642. L15=~~~~~~~~if FDataLink.Dataset <> nil then
  643. L16=~~~~~~~~~~~if FDataLink.Dataset.Active then
  644. L17=~~~~~~~~~~~~~~if FDataLink.Dataset.FieldByName(DataField).DataType
  645. L18=~~~~~~~~~~~~~~~~~in [ftBlob, ftGraphic] then
  646. L19=~~~~~~~~~~~~~~~~~raise EDatabaseError.Create('Wrong field type');
  647. L20=end;
  648.  
  649. [ActiveChangeHelp$]
  650. Lines=0
  651.  
  652. [OnChange]
  653. Descr=
  654. DefaultCode=13
  655. Ov=1
  656. P=1
  657. HandlerDecl=Change
  658.  
  659. [OnChangeCode$]
  660. Lines=5
  661. L1=begin
  662. L2=~~~~~{ Set Modified flag of dataset }
  663. L3=~~~~~FDataLink.Modified;
  664. L4=~~~~~inherited Change;
  665. L5=end;
  666.  
  667. [OnChangeHelp$]
  668. Lines=0
  669.  
  670. [FFocused]
  671. Descr=
  672. DefaultCode=17
  673. DataType=Boolean
  674. Default=
  675. Quote=0
  676. Sc=9
  677. IsObject=0
  678. IsSubComponent=0
  679.  
  680. [FFocusedCode$]
  681. Lines=0
  682.  
  683. [FFocusedHelp$]
  684. Lines=0
  685.  
  686. [SetFocused]
  687. Descr=
  688. DefaultCode=0
  689. Kind=0
  690. Header=SetFocused(Value : Boolean)
  691. S=2
  692. Ov=0
  693. Mode=2
  694. WinMessage=
  695.  
  696. [SetFocusedCode$]
  697. Lines=8
  698. L1=begin
  699. L2=~~~~~if FFocused <> Value then
  700. L3=~~~~~~~~begin
  701. L4=~~~~~~~~FFocused := Value;
  702. L5=~~~~~~~~Invalidate;
  703. L6=~~~~~~~~FDataLink.Reset
  704. L7=~~~~~~~~end
  705. L8=end;
  706.  
  707. [SetFocusedHelp$]
  708. Lines=0
  709.  
  710. [WMCut]
  711. Descr=Put data link in edit mode for any clipboard cut operation
  712. DefaultCode=0
  713. Kind=0
  714. Header=WMCut(var Message : TMessage)
  715. S=2
  716. Ov=0
  717. Mode=2
  718. WinMessage=WM_CUT
  719.  
  720. [WMCutCode$]
  721. Lines=4
  722. L1=begin
  723. L2=~~~~~FDataLink.Edit;
  724. L3=~~~~~inherited
  725. L4=end;
  726.  
  727. [WMCutHelp$]
  728. Lines=0
  729.  
  730. [WMPaste]
  731. Descr=Put data link in edit mode for any clipboard paste operation
  732. DefaultCode=0
  733. Kind=0
  734. Header=WMPaste(var Message : TMessage)
  735. S=2
  736. Ov=0
  737. Mode=2
  738. WinMessage=WM_PASTE
  739.  
  740. [WMPasteCode$]
  741. Lines=4
  742. L1=begin
  743. L2=~~~~~FDataLink.Edit;
  744. L3=~~~~~inherited
  745. L4=end;
  746.  
  747. [WMPasteHelp$]
  748. Lines=0
  749.  
  750. [CMEnter]
  751. Descr=Reset data link whenever component gets focus
  752. DefaultCode=0
  753. Kind=0
  754. Header=CMEnter(var Message : TCMEnter)
  755. S=2
  756. Ov=0
  757. Mode=2
  758. WinMessage=CM_ENTER
  759.  
  760. [CMEnterCode$]
  761. Lines=4
  762. L1=begin
  763. L2=~~~~~SetFocused(True);
  764. L3=~~~~~inherited
  765. L4=end;
  766.  
  767. [CMEnterHelp$]
  768. Lines=0
  769.  
  770. [CMExit]
  771. Descr=Update record whenever component loses focus
  772. DefaultCode=0
  773. Kind=0
  774. Header=CMExit(var Message : TCMExit)
  775. S=2
  776. Ov=0
  777. Mode=2
  778. WinMessage=CM_EXIT
  779.  
  780. [CMExitCode$]
  781. Lines=13
  782. L1=begin
  783. L2=~~~~~try
  784. L3=~~~~~~~~FDataLink.UpdateRecord;
  785. L4=~~~~~except
  786. L5=~~~~~~~~SelectAll;
  787. L6=~~~~~~~~SetFocus;
  788. L7=~~~~~~~~Raise;
  789. L8=~~~~~end;
  790. L9=~~~~~SetFocused(False);
  791. L10=~~~~~SetCursor(0);
  792. L11=~~~~~{ Call OnExit handler }
  793. L12=~~~~~DoExit
  794. L13=end;
  795.  
  796. [CMExitHelp$]
  797. Lines=0
  798.  
  799. [CharCase]
  800. Descr=
  801. DefaultCode=6
  802. IN=1
  803. RO=0
  804. PropType=TEditCharCase
  805. PropDefault=
  806. Quote=0
  807. RM=0
  808. WM=0
  809. Hide=0
  810. DefEdit=1
  811. All=0
  812. EC=
  813. EU=
  814. Link=
  815.  
  816. [CharCaseCode$]
  817. Lines=0
  818.  
  819. [CharCaseHelp$]
  820. Lines=0
  821.  
  822. [Enabled]
  823. Descr=
  824. DefaultCode=6
  825. IN=1
  826. RO=0
  827. PropType=Boolean
  828. PropDefault=
  829. Quote=0
  830. RM=0
  831. WM=0
  832. Hide=0
  833. DefEdit=1
  834. All=0
  835. EC=
  836. EU=
  837. Link=
  838.  
  839. [EnabledCode$]
  840. Lines=0
  841.  
  842. [EnabledHelp$]
  843. Lines=0
  844.  
  845. [Font]
  846. Descr=
  847. DefaultCode=6
  848. IN=1
  849. RO=0
  850. PropType=TFont
  851. PropDefault=
  852. Quote=0
  853. RM=0
  854. WM=0
  855. Hide=0
  856. DefEdit=1
  857. All=0
  858. EC=
  859. EU=
  860. Link=
  861.  
  862. [FontCode$]
  863. Lines=0
  864.  
  865. [FontHelp$]
  866. Lines=0
  867.  
  868. [MaxLength]
  869. Descr=
  870. DefaultCode=6
  871. IN=1
  872. RO=0
  873. PropType=Integer
  874. PropDefault=
  875. Quote=0
  876. RM=0
  877. WM=0
  878. Hide=0
  879. DefEdit=1
  880. All=0
  881. EC=
  882. EU=
  883. Link=
  884.  
  885. [MaxLengthCode$]
  886. Lines=0
  887.  
  888. [MaxLengthHelp$]
  889. Lines=0
  890.  
  891. [Reset]
  892. Descr=
  893. DefaultCode=0
  894. Kind=0
  895. Header=Reset
  896. S=1
  897. Ov=0
  898. Mode=2
  899. WinMessage=
  900.  
  901. [ResetCode$]
  902. Lines=4
  903. L1=begin
  904. L2=~~~~~FDataLink.Reset;
  905. L3=~~~~~SelectAll
  906. L4=end;
  907.  
  908. [ResetHelp$]
  909. Lines=0
  910.